home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
cli
/
0utils.lha
/
0Utils
/
BaseName.data
< prev
next >
Wrap
Text File
|
1995-08-30
|
951b
|
59 lines
#ifdef TPLTER
BaseName = {
Version = "1.0";
Short = {{ Cut the suffix part from a filename }};
description = {{
Pathpart gets a filename and extracts its
name w/o trailing suffix.
The resulting string is sent to STDOUT.
RESULT
a filename w/o suffix
}};
Template = "FILE/A";
Arguments = {{
STRPTR file;
}};
Examples = {{
>basename a.b
a
>basename a
a
> suffix ram:t/jabba.bak
ram:t/jabba
}};
History = {{
19-08-95 b_noll (1.0) created .data file
}};
Body = {{
STRPTR p;
UBYTE bak = 0;;
p = argv->file;
retval = RETURN_WARN;
if (p && *p) {
while (*p) ++p;
--p;
while ((p != argv->file) && (*p != '.') && (*p != ':') && (*p != '/')) --p;
if (*p == '.') {
bak = '.';
*p = 0;
} /* if */
if (PutStr (argv->file) == 0) retval = RETURN_OK;
if (bak) {
*p = bak;
} /* if */
} /* if */
PutStr("\n");
}};
};
#endif